home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / t2win_32.zip / _ARRAY.FRM next >
Text File  |  1996-05-14  |  24KB  |  975 lines
  1. VERSION 4.00
  2. Begin VB.Form frmArray 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Array"
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   1890
  7.    ClientTop       =   3270
  8.    ClientWidth     =   6690
  9.    Height          =   4575
  10.    Left            =   1830
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4170
  14.    ScaleWidth      =   6690
  15.    ShowInTaskbar   =   0   'False
  16.    Top             =   2925
  17.    Width           =   6810
  18.    Begin VB.ListBox List2 
  19.       Height          =   2010
  20.       Left            =   3510
  21.       TabIndex        =   2
  22.       Top             =   2070
  23.       Width           =   3075
  24.    End
  25.    Begin VB.ListBox List1 
  26.       Height          =   2010
  27.       Left            =   90
  28.       TabIndex        =   1
  29.       Top             =   2070
  30.       Width           =   3075
  31.    End
  32.    Begin Threed.SSPanel SSPanel1 
  33.       Align           =   1  'Align Top
  34.       Height          =   480
  35.       Left            =   0
  36.       TabIndex        =   3
  37.       Top             =   0
  38.       Width           =   6690
  39.       _Version        =   65536
  40.       _ExtentX        =   11800
  41.       _ExtentY        =   847
  42.       _StockProps     =   15
  43.       ForeColor       =   -2147483640
  44.       BackColor       =   12632256
  45.       Begin VB.ComboBox cmb_Function 
  46.          Height          =   315
  47.          Left            =   1365
  48.          TabIndex        =   4
  49.          Top             =   90
  50.          Width           =   3945
  51.       End
  52.       Begin Threed.SSCommand cmdNP 
  53.          Height          =   300
  54.          Index           =   1
  55.          Left            =   6300
  56.          TabIndex        =   8
  57.          Top             =   90
  58.          Width           =   255
  59.          _Version        =   65536
  60.          _ExtentX        =   450
  61.          _ExtentY        =   529
  62.          _StockProps     =   78
  63.          Caption         =   ">"
  64.          BevelWidth      =   1
  65.          Font3D          =   3
  66.          RoundedCorners  =   0   'False
  67.          Outline         =   0   'False
  68.       End
  69.       Begin Threed.SSCommand cmdNP 
  70.          Height          =   300
  71.          Index           =   0
  72.          Left            =   5460
  73.          TabIndex        =   7
  74.          Top             =   90
  75.          Width           =   255
  76.          _Version        =   65536
  77.          _ExtentX        =   450
  78.          _ExtentY        =   529
  79.          _StockProps     =   78
  80.          Caption         =   "<"
  81.          BevelWidth      =   1
  82.          Font3D          =   3
  83.          RoundedCorners  =   0   'False
  84.          Outline         =   0   'False
  85.       End
  86.       Begin VB.Label Label2 
  87.          Caption         =   "&Select a function"
  88.          Height          =   255
  89.          Left            =   90
  90.          TabIndex        =   6
  91.          Top             =   120
  92.          Width           =   1275
  93.       End
  94.       Begin Threed.SSCommand SSCommand1 
  95.          Default         =   -1  'True
  96.          Height          =   300
  97.          Left            =   5775
  98.          TabIndex        =   5
  99.          Top             =   90
  100.          Width           =   465
  101.          _Version        =   65536
  102.          _ExtentX        =   820
  103.          _ExtentY        =   529
  104.          _StockProps     =   78
  105.          Caption         =   "&Go"
  106.          BevelWidth      =   1
  107.          RoundedCorners  =   0   'False
  108.          Outline         =   0   'False
  109.       End
  110.    End
  111.    Begin VB.Label lbl_Result 
  112.       Appearance      =   0  'Flat
  113.       BackColor       =   &H00C0C0C0&
  114.       ForeColor       =   &H80000008&
  115.       Height          =   1275
  116.       Left            =   105
  117.       TabIndex        =   0
  118.       Top             =   630
  119.       Width           =   6495
  120.    End
  121. End
  122. Attribute VB_Name = "frmArray"
  123. Attribute VB_Creatable = False
  124. Attribute VB_Exposed = False
  125. Option Explicit
  126. Option Base 1
  127.  
  128. Private Const Iteration = 250
  129.  
  130. Private Const arrSize = 10
  131.  
  132. Dim IsLoaded         As Integer
  133.  
  134. Dim TimerStartOk     As Integer
  135. Dim TimerCloseOk     As Integer
  136.  
  137. Dim TimerHandle      As Integer
  138. Dim TimerValue       As Long
  139. Private Sub TestAdd()
  140.    
  141.    Dim intResult        As Integer
  142.    Dim strDisplay       As String
  143.    
  144.    Dim intLB            As Integer
  145.    Dim intUB            As Integer
  146.    Dim intTotalElement  As Integer
  147.    
  148.    Dim i                As Integer
  149.    
  150.    intResult = False
  151.    strDisplay = ""
  152.    
  153.    ReDim array(arrSize) As Integer
  154.    Randomize Timer
  155.  
  156.    intLB = LBound(array)
  157.    intUB = UBound(array)
  158.    intTotalElement = intUB - intLB + 1
  159.       
  160.    For i = intLB To intUB
  161.       array(i) = RandI * Rnd(1)
  162.       List1.AddItem "" & array(i)
  163.    Next i
  164.  
  165.    intResult = cAddI(array(), 10)
  166.  
  167.    For i = intLB To intUB
  168.       List2.AddItem "" & array(i)
  169.    Next i
  170.  
  171.    strDisplay = strDisplay & "Add 10 to element " & intLB & " of an integer array is : " & array(intLB) & vbCrLf & vbCrLf
  172.    strDisplay = strDisplay & "Add 10 to element " & intUB & " of an integer array is : " & array(intUB)
  173.    
  174.    lbl_Result = strDisplay
  175.  
  176.    'time the function
  177.  
  178.    TimerHandle = cTimerOpen()
  179.    TimerStartOk = cTimerStart(TimerHandle)
  180.    
  181.    For i = 1 To Iteration
  182.       intResult = cAddI(array(), 1)
  183.    Next i
  184.    
  185.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  186.    
  187.    TimerCloseOk = cTimerClose(TimerHandle)
  188.  
  189. End Sub
  190. Private Sub cmb_Function_Click()
  191.    
  192.    If (IsLoaded = False) Then Exit Sub
  193.    
  194.    Call cDisableFI(mdiT2W.Picture1)
  195.    
  196.    List1.Visible = True
  197.    List2.Visible = True
  198.    
  199.    List1.Clear
  200.    List2.Clear
  201.    
  202.    lbl_Result = ""
  203.    
  204.    DoEvents
  205.    
  206.    Select Case cmb_Function.ListIndex
  207.       Case 0
  208.          Call TestAdd
  209.       Case 1
  210.          List2.Visible = False
  211.          Call TestCount
  212.       Case 2
  213.          List2.Visible = False
  214.          Call TestDeviation
  215.       Case 3
  216.          Call TestFill
  217.       Case 4
  218.          Call TestFillIncr
  219.       Case 5
  220.          Call TestMax
  221.       Case 6
  222.          List2.Visible = False
  223.          Call TestMean
  224.       Case 7
  225.          Call TestMin
  226.       Case 8
  227.          Call TestReverseSort
  228.       Case 9
  229.          Call TestSearch
  230.       Case 10
  231.          Call TestSet
  232.       Case 11
  233.          Call TestSort
  234.       Case 12
  235.          List2.Visible = False
  236.          Call TestSum
  237.       Case 13
  238.          Call TestArrayOnDisk
  239.    End Select
  240.  
  241.    DoEvents
  242.    Call cEnableFI(mdiT2W.Picture1)
  243.    
  244. End Sub
  245.  
  246.  
  247. Private Sub cmdNP_Click(Index As Integer)
  248.  
  249.    Call sub_NextPrev(cmb_Function, Index)
  250.  
  251. End Sub
  252.  
  253. Private Sub Form_Activate()
  254.  
  255.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  256.  
  257. End Sub
  258.  
  259. Private Sub Form_Load()
  260.  
  261.    IsLoaded = False
  262.    
  263.    Show
  264.  
  265.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_array.t2w")
  266.    
  267.    IsLoaded = True
  268.    
  269. End Sub
  270.  
  271. Private Sub TestDeviation()
  272.   
  273.    Dim dblResult        As Double
  274.    Dim strDisplay       As String
  275.    
  276.    Dim intLB            As Integer
  277.    Dim intUB            As Integer
  278.    Dim intTotalElement  As Integer
  279.    
  280.    Dim i                As Integer
  281.    
  282.    Dim dblMean          As Double
  283.    Dim dblDeviation     As Double
  284.    
  285.    dblResult = 0
  286.    strDisplay = ""
  287.    
  288.    dblMean = 0
  289.    dblDeviation = 0
  290.    
  291.    ReDim array(arrSize) As Integer
  292.    Randomize Timer
  293.  
  294.    intLB = LBound(array)
  295.    intUB = UBound(array)
  296.    intTotalElement = intUB - intLB + 1
  297.       
  298.    For i = intLB To intUB
  299.       array(i) = Int(RandI * Rnd(1))
  300.       dblMean = dblMean + array(i)
  301.       List1.AddItem "" & array(i)
  302.    Next i
  303.    
  304.    dblMean = dblMean / (intTotalElement)
  305.  
  306.    For i = intLB To intUB
  307.       dblDeviation = dblDeviation + ((array(i) - dblMean) * (array(i) - dblMean))
  308.    Next i
  309.    dblDeviation = (Sqr(dblDeviation) / (intTotalElement))
  310.    
  311.    dblResult = cDeviationI(array())
  312.  
  313.    strDisplay = "The Deviation of a integer array of " & (intTotalElement) & " elements is " & vbCrLf & vbCrLf & dblResult & " (" & dblDeviation & ")"
  314.    
  315.    lbl_Result = strDisplay
  316.  
  317.    'time the function
  318.  
  319.    TimerHandle = cTimerOpen()
  320.    TimerStartOk = cTimerStart(TimerHandle)
  321.    
  322.    For i = 1 To Iteration
  323.       dblResult = cDeviationI(array())
  324.    Next i
  325.    
  326.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  327.    
  328.    TimerCloseOk = cTimerClose(TimerHandle)
  329.  
  330. End Sub
  331.  
  332. Private Sub TestFill()
  333.    
  334.    Dim intResult        As Integer
  335.    Dim strDisplay       As String
  336.    
  337.    Dim intLB            As Integer
  338.    Dim intUB            As Integer
  339.    Dim intTotalElement  As Integer
  340.    
  341.    Dim i                As Integer
  342.    
  343.    intResult = False
  344.    strDisplay = ""
  345.    
  346.    ReDim array(arrSize) As Integer
  347.    Randomize Timer
  348.  
  349.    intLB = LBound(array)
  350.    intUB = UBound(array)
  351.    intTotalElement = intUB - intLB + 1
  352.       
  353.    For i = intLB To intUB
  354.       array(i) = RandI * Rnd(1)
  355.       List1.AddItem "" & array(i)
  356.    Next i
  357.  
  358.    intResult = cFillI(array(), 5)
  359.  
  360.    For i = intLB To intUB
  361.       List2.AddItem "" & array(i)
  362.    Next i
  363.  
  364.    strDisplay = strDisplay & "Fill 1 to element " & intLB & " of an integer array is : " & array(intLB) & vbCrLf & vbCrLf
  365.    strDisplay = strDisplay & "Fill 1 to element " & intUB & " of an integer array is : " & array(intUB)
  366.    
  367.    lbl_Result = strDisplay
  368.  
  369.    'time the function
  370.  
  371.    TimerHandle = cTimerOpen()
  372.    TimerStartOk = cTimerStart(TimerHandle)
  373.    
  374.    For i = 1 To Iteration
  375.       intResult = cFillI(array(), 1)
  376.    Next i
  377.    
  378.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  379.    
  380.    TimerCloseOk = cTimerClose(TimerHandle)
  381.  
  382. End Sub
  383.  
  384. Private Sub TestFillIncr()
  385.    
  386.    Dim intResult        As Integer
  387.    Dim strDisplay       As String
  388.    
  389.    Dim intLB            As Integer
  390.    Dim intUB            As Integer
  391.    Dim intTotalElement  As Integer
  392.    
  393.    Dim i                As Integer
  394.    
  395.    intResult = False
  396.    strDisplay = ""
  397.    
  398.    ReDim array(arrSize) As Integer
  399.    Randomize Timer
  400.  
  401.    intLB = LBound(array)
  402.    intUB = UBound(array)
  403.    intTotalElement = intUB - intLB + 1
  404.       
  405.    For i = intLB To intUB
  406.       array(i) = RandI * Rnd(1)
  407.       List1.AddItem "" & array(i)
  408.    Next i
  409.  
  410.    intResult = cFillIncrI(array(), -2, 3)
  411.  
  412.    For i = intLB To intUB
  413.       List2.AddItem "" & array(i)
  414.    Next i
  415.  
  416.    strDisplay = strDisplay & "Fill -2 by increment 3 to element " & intLB & " of an integer array is : " & array(intLB) & vbCrLf & vbCrLf
  417.    strDisplay = strDisplay & "Fill -2 by increment 3 to element " & intUB & " of an integer array is : " & array(intUB)
  418.    
  419.    lbl_Result = strDisplay
  420.  
  421.    'time the function
  422.  
  423.    TimerHandle = cTimerOpen()
  424.    TimerStartOk = cTimerStart(TimerHandle)
  425.    
  426.    For i = 1 To Iteration
  427.       intResult = cFillIncrI(array(), -2, 3)
  428.    Next i
  429.    
  430.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  431.    
  432.    TimerCloseOk = cTimerClose(TimerHandle)
  433.  
  434. End Sub
  435.  
  436. Private Sub TestMax()
  437.    
  438.    Dim intResult        As Integer
  439.    Dim strDisplay       As String
  440.    
  441.    Dim intLB            As Integer
  442.    Dim intUB            As Integer
  443.    Dim intTotalElement  As Integer
  444.    
  445.    Dim i                As Integer
  446.    
  447.    intResult = False
  448.    strDisplay = ""
  449.    
  450.    ReDim array(arrSize) As Integer
  451.    Randomize Timer
  452.  
  453.    intLB = LBound(array)
  454.    intUB = UBound(array)
  455.    intTotalElement = intUB - intLB + 1
  456.       
  457.    For i = intLB To intUB
  458.       array(i) = RandI * Rnd(1)
  459.       List1.AddItem "" & array(i)
  460.    Next i
  461.  
  462.    intResult = cSortI(array())
  463.  
  464.    For i = intLB To intUB
  465.       List2.AddItem "" & array(i)
  466.    Next i
  467.    
  468.    intResult = cMaxI(array())
  469.  
  470.    strDisplay = strDisplay & "The Max of this integer array is : " & intResult
  471.    
  472.    lbl_Result = strDisplay
  473.  
  474.    'time the function
  475.  
  476.    TimerHandle = cTimerOpen()
  477.    TimerStartOk = cTimerStart(TimerHandle)
  478.    
  479.    For i = 1 To Iteration
  480.       intResult = cMaxI(array())
  481.    Next i
  482.    
  483.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  484.    
  485.    TimerCloseOk = cTimerClose(TimerHandle)
  486.  
  487. End Sub
  488.  
  489. Private Sub TestMin()
  490.    
  491.    Dim intResult        As Integer
  492.    Dim strDisplay       As String
  493.    
  494.    Dim intLB            As Integer
  495.    Dim intUB            As Integer
  496.    Dim intTotalElement  As Integer
  497.    
  498.    Dim i                As Integer
  499.    
  500.    intResult = False
  501.    strDisplay = ""
  502.    
  503.    ReDim array(arrSize) As Integer
  504.    Randomize Timer
  505.  
  506.    intLB = LBound(array)
  507.    intUB = UBound(array)
  508.    intTotalElement = intUB - intLB + 1
  509.       
  510.    For i = intLB To intUB
  511.       array(i) = RandI * Rnd(1)
  512.       List1.AddItem "" & array(i)
  513.    Next i
  514.  
  515.    intResult = cSortI(array())
  516.  
  517.    For i = intLB To intUB
  518.       List2.AddItem "" & array(i)
  519.    Next i
  520.    
  521.    intResult = cMinI(array())
  522.  
  523.    strDisplay = strDisplay & "The Min of this integer array is : " & intResult
  524.    
  525.    lbl_Result = strDisplay
  526.  
  527.    'time the function
  528.  
  529.    TimerHandle = cTimerOpen()
  530.    TimerStartOk = cTimerStart(TimerHandle)
  531.    
  532.    For i = 1 To Iteration
  533.       intResult = cMinI(array())
  534.    Next i
  535.    
  536.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  537.    
  538.    TimerCloseOk = cTimerClose(TimerHandle)
  539.  
  540. End Sub
  541.  
  542. Private Sub TestMean()
  543.   
  544.    Dim dblResult        As Double
  545.    Dim strDisplay       As String
  546.    
  547.    Dim intLB            As Integer
  548.    Dim intUB            As Integer
  549.    Dim intTotalElement  As Integer
  550.    
  551.    Dim i                As Integer
  552.    
  553.    Dim dblMean          As Double
  554.   
  555.    dblResult = 0
  556.    strDisplay = ""
  557.    
  558.    dblMean = 0
  559.    dblMean = 0
  560.    
  561.    ReDim array(arrSize) As Integer
  562.    Randomize Timer
  563.  
  564.    intLB = LBound(array)
  565.    intUB = UBound(array)
  566.    intTotalElement = intUB - intLB + 1
  567.       
  568.    For i = intLB To intUB
  569.       array(i) = Int(RandI * Rnd(1))
  570.       dblMean = dblMean + array(i)
  571.       List1.AddItem "" & array(i)
  572.    Next i
  573.    
  574.    dblMean = dblMean / (intTotalElement)
  575.  
  576.    dblResult = cMeanI(array())
  577.  
  578.    strDisplay = "The Mean of this integer array of " & (intTotalElement) & " elements is " & vbCrLf & vbCrLf & dblResult & " (" & dblMean & ")"
  579.    
  580.    lbl_Result = strDisplay
  581.  
  582.    'time the function
  583.  
  584.    TimerHandle = cTimerOpen()
  585.    TimerStartOk = cTimerStart(TimerHandle)
  586.    
  587.    For i = 1 To Iteration
  588.       dblResult = cMeanI(array())
  589.    Next i
  590.    
  591.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  592.    
  593.    TimerCloseOk = cTimerClose(TimerHandle)
  594.  
  595. End Sub
  596.  
  597. Private Sub TestReverseSort()
  598.    
  599.    Dim intResult        As Integer
  600.    Dim strDisplay       As String
  601.    
  602.    Dim intLB            As Integer
  603.    Dim intUB            As Integer
  604.    Dim intTotalElement  As Integer
  605.    
  606.    Dim i                As Integer
  607.    
  608.    intResult = False
  609.    strDisplay = ""
  610.    
  611.    ReDim array(arrSize) As Integer
  612.    Randomize Timer
  613.  
  614.    intLB = LBound(array)
  615.    intUB = UBound(array)
  616.    intTotalElement = intUB - intLB + 1
  617.       
  618.    For i = intLB To intUB
  619.       array(i) = RandI * Rnd(1)
  620.       List1.AddItem "" & array(i)
  621.    Next i
  622.  
  623.    intResult = cReverseSortI(array())
  624.  
  625.    For i = intLB To intUB
  626.       List2.AddItem "" & array(i)
  627.    Next i
  628.    
  629.    lbl_Result = strDisplay
  630.  
  631.    'time the function
  632.  
  633.    TimerHandle = cTimerOpen()
  634.    TimerStartOk = cTimerStart(TimerHandle)
  635.    
  636.    For i = 1 To Iteration
  637.       intResult = cReverseSortI(array())
  638.    Next i
  639.    
  640.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  641.    
  642.    TimerCloseOk = cTimerClose(TimerHandle)
  643.  
  644. End Sub
  645.  
  646. Private Sub TestSet()
  647.    
  648.    Dim intResult        As Integer
  649.    Dim strDisplay       As String
  650.    
  651.    Dim intLB            As Integer
  652.    Dim intUB            As Integer
  653.    Dim intTotalElement  As Integer
  654.    
  655.    Dim i                As Integer
  656.    
  657.    intResult = False
  658.    strDisplay = ""
  659.    
  660.    ReDim array(arrSize) As Integer
  661.    Randomize Timer
  662.  
  663.    intLB = LBound(array)
  664.    intUB = UBound(array)
  665.    intTotalElement = intUB - intLB + 1
  666.       
  667.    For i = intLB To intUB
  668.       array(i) = RandI * Rnd(1)
  669.       List1.AddItem "" & array(i)
  670.    Next i
  671.  
  672.    intResult = cSetI(array(), 1024)
  673.  
  674.    For i = intLB To intUB
  675.       List2.AddItem "" & array(i)
  676.    Next i
  677.  
  678.    strDisplay = strDisplay & "Set 1024 to element " & intLB & " of an integer array is : " & array(intLB) & vbCrLf & vbCrLf
  679.    strDisplay = strDisplay & "Set 1024 to element " & intUB & " of an integer array is : " & array(intUB)
  680.    
  681.    lbl_Result = strDisplay
  682.  
  683.    'time the function
  684.  
  685.    TimerHandle = cTimerOpen()
  686.    TimerStartOk = cTimerStart(TimerHandle)
  687.    
  688.    For i = 1 To Iteration
  689.       intResult = cSetI(array(), 1)
  690.    Next i
  691.    
  692.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  693.    
  694.    TimerCloseOk = cTimerClose(TimerHandle)
  695.  
  696. End Sub
  697.  
  698.  
  699.  
  700. Private Sub TestSort()
  701.    
  702.    Dim intResult        As Integer
  703.    Dim strDisplay       As String
  704.    
  705.    Dim intLB            As Integer
  706.    Dim intUB            As Integer
  707.    Dim intTotalElement  As Integer
  708.    
  709.    Dim i                As Integer
  710.    
  711.    intResult = False
  712.    strDisplay = ""
  713.    
  714.    ReDim array(arrSize) As Integer
  715.    Randomize Timer
  716.  
  717.    intLB = LBound(array)
  718.    intUB = UBound(array)
  719.    intTotalElement = intUB - intLB + 1
  720.       
  721.    For i = intLB To intUB
  722.       array(i) = RandI * Rnd(1)
  723.       List1.AddItem "" & array(i)
  724.    Next i
  725.  
  726.    intResult = cSortI(array())
  727.  
  728.    For i = intLB To intUB
  729.       List2.AddItem "" & array(i)
  730.    Next i
  731.    
  732.    lbl_Result = strDisplay
  733.  
  734.    'time the function
  735.  
  736.    TimerHandle = cTimerOpen()
  737.    TimerStartOk = cTimerStart(TimerHandle)
  738.    
  739.    For i = 1 To Iteration
  740.       intResult = cSortI(array())
  741.    Next i
  742.    
  743.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  744.    
  745.    TimerCloseOk = cTimerClose(TimerHandle)
  746.  
  747. End Sub
  748.  
  749. Private Sub TestSum()
  750.   
  751.    Dim dblResult        As Double
  752.    Dim strDisplay       As String
  753.    
  754.    Dim intLB            As Integer
  755.    Dim intUB            As Integer
  756.    Dim intTotalElement  As Integer
  757.    
  758.    Dim i                As Integer
  759.    
  760.    Dim dblSum           As Double
  761.   
  762.    dblResult = 0
  763.    strDisplay = ""
  764.    
  765.    dblSum = 0
  766.    dblSum = 0
  767.    
  768.    ReDim array(arrSize) As Integer
  769.    Randomize Timer
  770.  
  771.    intLB = LBound(array)
  772.    intUB = UBound(array)
  773.    intTotalElement = intUB - intLB + 1
  774.       
  775.    For i = intLB To intUB
  776.       array(i) = Int(RandI * Rnd(1))
  777.       dblSum = dblSum + array(i)
  778.       List1.AddItem "" & array(i)
  779.    Next i
  780.    
  781.    dblResult = cSumI(array())
  782.  
  783.    strDisplay = "The Sum of this integer array of " & (intTotalElement) & " elements is " & vbCrLf & vbCrLf & dblResult & " (" & dblSum & ")"
  784.    
  785.    lbl_Result = strDisplay
  786.  
  787.    'time the function
  788.  
  789.    TimerHandle = cTimerOpen()
  790.    TimerStartOk = cTimerStart(TimerHandle)
  791.    
  792.    For i = 1 To Iteration
  793.       dblResult = cSumI(array())
  794.    Next i
  795.    
  796.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  797.    
  798.    TimerCloseOk = cTimerClose(TimerHandle)
  799.  
  800. End Sub
  801.  
  802. Private Sub TestCount()
  803.    
  804.    Dim intResult        As Integer
  805.    Dim strDisplay       As String
  806.    
  807.    Dim intLB            As Integer
  808.    Dim intUB            As Integer
  809.    Dim intTotalElement  As Integer
  810.    
  811.    Dim i                As Integer
  812.    
  813.    intResult = False
  814.    strDisplay = ""
  815.    
  816.    ReDim array(arrSize) As Integer
  817.    Randomize Timer
  818.  
  819.    intLB = LBound(array)
  820.    intUB = UBound(array)
  821.    intTotalElement = intUB - intLB + 1
  822.       
  823.    For i = intLB To intUB
  824.       array(i) = RandI * Rnd(1)
  825.       List1.AddItem "" & array(i)
  826.    Next i
  827.  
  828.    strDisplay = strDisplay & "Count '" & array(1) & "' is " & cCountI(array(), array(1)) & vbCrLf
  829.    strDisplay = strDisplay & "Count '" & array(3) & "' is " & cCountI(array(), array(3)) & vbCrLf
  830.    strDisplay = strDisplay & "Count '" & array(5) & "' is " & cCountI(array(), array(5)) & vbCrLf
  831.    strDisplay = strDisplay & "Count '" & array(7) & "' is " & cCountI(array(), array(7)) & vbCrLf
  832.    strDisplay = strDisplay & "Count '" & array(9) & "' is " & cCountI(array(), array(9)) & vbCrLf
  833.    strDisplay = strDisplay & "Count '" & -1234 & "' is " & cCountI(array(), -1234)
  834.    
  835.    lbl_Result = strDisplay
  836.  
  837.    'time the function
  838.  
  839.    TimerHandle = cTimerOpen()
  840.    TimerStartOk = cTimerStart(TimerHandle)
  841.    
  842.    For i = 1 To Iteration
  843.       intResult = cCountI(array(), array(intLB))
  844.    Next i
  845.    
  846.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  847.    
  848.    TimerCloseOk = cTimerClose(TimerHandle)
  849.  
  850. End Sub
  851.  
  852. Private Sub TestSearch()
  853.    
  854.    Dim intResult        As Integer
  855.    Dim strDisplay       As String
  856.    
  857.    Dim intLB            As Integer
  858.    Dim intUB            As Integer
  859.    Dim intTotalElement  As Integer
  860.    
  861.    Dim i                As Integer
  862.    
  863.    intResult = False
  864.    strDisplay = ""
  865.    
  866.    ReDim array(arrSize) As Integer
  867.    Randomize Timer
  868.  
  869.    intLB = LBound(array)
  870.    intUB = UBound(array)
  871.    intTotalElement = intUB - intLB + 1
  872.       
  873.    For i = intLB To intUB
  874.       array(i) = RandI * Rnd(1)
  875.       List1.AddItem "" & array(i)
  876.    Next i
  877.  
  878.    strDisplay = strDisplay & "Search '" & array(1) & "' is " & cSearchI(array(), array(1)) & vbCrLf
  879.    strDisplay = strDisplay & "Search '" & array(3) & "' is " & cSearchI(array(), array(3)) & vbCrLf
  880.    strDisplay = strDisplay & "Search '" & array(5) & "' is " & cSearchI(array(), array(5)) & vbCrLf
  881.    strDisplay = strDisplay & "Search '" & array(7) & "' is " & cSearchI(array(), array(7)) & vbCrLf
  882.    strDisplay = strDisplay & "Search '" & array(9) & "' is " & cSearchI(array(), array(9)) & vbCrLf
  883.    strDisplay = strDisplay & "Search '" & -1234 & "' is " & cSearchI(array(), -1234)
  884.    
  885.    lbl_Result = strDisplay
  886.  
  887.    'time the function
  888.  
  889.    TimerHandle = cTimerOpen()
  890.    TimerStartOk = cTimerStart(TimerHandle)
  891.    
  892.    For i = 1 To Iteration
  893.       intResult = cSearchI(array(), array(intLB))
  894.    Next i
  895.    
  896.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  897.    
  898.    TimerCloseOk = cTimerClose(TimerHandle)
  899.  
  900. End Sub
  901.  
  902.  
  903. Private Sub SSCommand1_Click()
  904.    
  905.    Call cmb_Function_Click
  906.    
  907. End Sub
  908.  
  909.  
  910.  
  911. Private Sub TestArrayOnDisk()
  912.    
  913.    Dim intResult        As Integer
  914.    Dim strDisplay       As String
  915.    
  916.    Dim intLB            As Integer
  917.    Dim intUB            As Integer
  918.    Dim intTotalElement  As Integer
  919.    
  920.    Dim i                As Integer
  921.    
  922.    intResult = False
  923.    strDisplay = ""
  924.    
  925.    ReDim array(arrSize) As Integer
  926.    Randomize Timer
  927.  
  928.    intLB = LBound(array)
  929.    intUB = UBound(array)
  930.    intTotalElement = intUB - intLB + 1
  931.       
  932.    For i = intLB To intUB
  933.       array(i) = RandI * Rnd(1)
  934.       List1.AddItem "" & array(i)
  935.    Next i
  936.    
  937.    intResult = cArrayOnDisk("c:\test.dat", array(), PUT_ARRAY_ON_DISK)
  938.    strDisplay = strDisplay & "Save this integer array on disk is '" & intResult & "'" & vbCrLf & vbCrLf
  939.    
  940.    DoEvents
  941.    
  942.    intResult = cSetI(array(), 0)
  943.    strDisplay = strDisplay & "Set all element of this integer to 0 array is '" & intResult & "'" & vbCrLf & vbCrLf
  944.    
  945.    For i = intLB To intUB
  946.       List2.AddItem "" & array(i)
  947.    Next i
  948.    
  949.    DoEvents
  950.    List2.Clear
  951.    
  952.    intResult = cArrayOnDisk("c:\test.dat", array(), GET_ARRAY_ON_DISK)
  953.    strDisplay = strDisplay & "Load from disk to this integer array is '" & intResult & "'"
  954.  
  955.    For i = intLB To intUB
  956.       List2.AddItem "" & array(i)
  957.    Next i
  958.  
  959.    lbl_Result = strDisplay
  960.  
  961.    'time the function
  962.  
  963.    TimerHandle = cTimerOpen()
  964.    TimerStartOk = cTimerStart(TimerHandle)
  965.    
  966.    For i = 1 To Iteration
  967.       intResult = cArrayOnDisk("c:\test.dat", array(), GET_ARRAY_ON_DISK)
  968.    Next i
  969.    
  970.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  971.    
  972.    TimerCloseOk = cTimerClose(TimerHandle)
  973.  
  974. End Sub
  975.